﻿
Public Class Input
    Dim _Executable As String

    Public Function StartProcess(ByVal data As Data) As Boolean
        For Each collection As FileType In data.FileTypes
            For Each storedFile In collection.Files
                Process.Start(_Executable, "a -m0  " & collection.Type & ".rar " & storedFile.Path).WaitForExit()
                MsgBox("Waiting!")
            Next
        Next
    End Function

    Public Sub New(ByVal executable As String)
        _Executable = executable
    End Sub
End Class
